home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 3 / BBS in a box - Trilogy III.iso / Files / MacTechNotes / Platforms & Tools / Stand-Alone Code Folder / Sorterƒ / HCScript next >
Encoding:
Text File  |  1990-07-14  |  383 b   |  18 lines  |  [TEXT/MPS ]
  1.  
  2. on mouseUp
  3.   global A5
  4.   Sorter 1, "A5"       -- Initialize that puppy
  5.   if the result is empty then
  6.     Sorter 3, A5, 6    -- Add some numbers to the list
  7.     Sorter 3, A5, 2
  8.     Sorter 3, A5, 9
  9.     Sorter 3, A5, 12
  10.     Sorter 3, A5, 7
  11.     Sorter 4, A5       -- sort them and print them
  12.     Sorter 2, A5       -- Dispose of our data
  13.   else
  14.     put the result
  15.   end if
  16. end mouseUp
  17.  
  18.